<%
set rs=server.createobject("adodb.recordset")
sql="select * from [category] where ClassType=2 and ppid=2 order by [order]"
rs.open(sql),cn,1,1
do while not rs.eof
if not rs.eof then
ItemID=rs("id")
WebProductName=rs("name")
WebProductFolderName=rs("folder")
WebProductFolder="/"&rs("folder")
end if
response.write"
"
response.write"
"
set rsp=server.createobject("adodb.recordset")
sql="select top 8 [title],file_path,[image],index_push from [article] where ArticleType=2 and pid='"&ItemID&"' and view_yes=1 order by id asc"
rsp.open(sql),cn,1,1
if not rsp.eof then
response.write"
"
do while not rsp.eof
rs_url=ProductContent_FolderName&"/"&ClassFolder1&"/"&rsp("file_path")
response.write"
"&rsp("title")&""
rsp.movenext
loop
response.write"
"
end if
rsp.close
set rsp=nothing
response.write"
"
rs.movenext
loop
rs.close
set rs=nothing
%>
